home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD010b.dsk / APPLE STOPWATCH.bas < prev    next >
BASIC Source File  |  2003-06-12  |  947b  |  26 lines
  1. 100  HOME : VTAB 3: HTAB 13: FLASH : PRINT "APPLE STOPWATCH"
  2. 105  VTAB 5: HTAB 13: INVERSE : PRINT "BY TOM MCDONALD": NORMAL 
  3. 110  PRINT : HTAB 10: PRINT "SPACE BAR = START/STOP"
  4. 120  PRINT : HTAB 11: PRINT "RETURN = LAP/RESET"
  5. 130  GET A$
  6. 140  IF A$ = " " GOTO 160
  7. 150  GOTO 130
  8. 160  FOR I = 0 TO 1000000  STEP .1
  9. 161 M =  INT(I/60):S = I -M *60
  10. 164 S$ =  STR$(S)
  11. 166  IF S <10  THEN S$ =  LEFT$(S$,3)
  12. 167 S$ =  LEFT$(S$,4)
  13. 170 X =  PEEK( -16384) -128
  14. 180  IF X = 32 GOTO 250
  15. 182  IF X = 13  THEN RR = 0: IF R = 0  THEN R = 1: GOTO 185
  16. 184  IF X = 13  THEN RR = 0: IF R = 1  THEN R = 0
  17. 185  POKE  -16368,0: IF R = 1  THEN  GOTO 220
  18. 190  IF M1  THEN  VTAB 18: HTAB 13: PRINT "  1 MINUTE        ": GOTO 210
  19. 200  VTAB 18: HTAB 14: PRINT M;"  MINUTES      "
  20. 210  VTAB 20: HTAB 13: PRINT S$;"  SECONDS "
  21. 220  NEXT I
  22. 250  POKE  -16368,0
  23. 255 Y =  PEEK( -16384) -128
  24. 260  IF Y = 32  THEN  POKE  -16368,0: GOTO 170
  25. 270  IF Y = 13  THEN  RUN 
  26. 280  GOTO 255